home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).zip / Peeker Nr. 15 (1986)(Verlag, Dr. Alfred Huethig)(DE).do / REELL.2.bas < prev    next >
BASIC Source File  |  1996-12-24  |  445b  |  14 lines
  1. 100  REM +-------------------+
  2. 110  REM !                   !
  3. 120  REM ! Euklid f}r B < 11 !
  4. 130  REM !                   !
  5. 140  REM +-------------------+
  6. 150  DIM S(30): ONERR  GOTO 160
  7. 160 I = 0: HOME : INPUT "NEUE BASIS: ";B
  8. 170  INPUT "ZAHL: ";Z: REM  Zul{ssige Ziffernzahl h{ngt von B ab.
  9. 180 S =  INT(Z/B)
  10. 190 S(I) = Z -B *S
  11. 200 Z = S: IF Z = 0  THEN 220
  12. 210 I = I +1: GOTO 180
  13. 220  PRINT : FOR J = I TO 0  STEP  -1
  14. 230  PRINT S(J);: NEXT